home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / anim / anim3.dem < prev    next >
Text File  |  1999-09-16  |  671b  |  32 lines
  1. kp=xget("pixmap");
  2. dr=driver()
  3. driver('X11')
  4. if kp=0, xset("pixmap",1);end;
  5.  
  6. y=ode(1.e-8*[1;1;1],0,0:0.003:50,'loren'); 
  7. [n1,n2]=size(y)    ;
  8. wid=xget("white");
  9. q=1:(n2/wid);
  10. ds=xget("dashes");
  11. param3d(y(1,:),y(2,:),y(3,:),35,45,'X@Y@Z',[2,4]);
  12. for i=35:5:80,xset("wwpc");
  13.     for j=1:wid;
  14.         xset("dashes",j);
  15.         tt= ((j-1)*(n2/wid)+1):(j*(n2/wid));
  16.         param3d(y(1,tt),y(2,tt),y(3,tt),i,45,'X@Y@Z',[0,0]);
  17.     end    
  18.     xset("wshow");
  19. end
  20. for i=45:5:80,xset("wwpc");
  21.     for j=1:wid;
  22.         xset("dashes",j);
  23.         tt= ((j-1)*(n2/wid)+1):(j*(n2/wid));
  24.         param3d(y(1,tt),y(2,tt),y(3,tt),80,i,'X@Y@Z',[0,0]);
  25.     end    
  26.     xset("wshow");
  27. end
  28. xset("dashes",ds(1));
  29. if kp=0, xset("pixmap",0);end;
  30. driver(dr)
  31.  
  32.